home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / gotopos.fpl < prev    next >
Text File  |  1995-07-18  |  265b  |  15 lines
  1. export int GotoPos() /* Make 'x' CursorRight to find a byte in a text */
  2. {
  3.   int steps;
  4.  
  5.   steps=PromptInt("Give position!");
  6.  
  7.   if (GetErrNo()>=0) {
  8.     Visible(0);
  9.     Top();
  10.     CursorRight(steps);
  11.     Visible(1);
  12.   }
  13. }
  14. AssignKey("GotoPos();", "Amiga Shift p");
  15.